www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/Count/show_Client.asp
<!--#include file="inc_show.asp"--> <!--#include file="inc_Lang_Functionlang.asp"--> <% tTabTop = "<tr class=""fonts"" height=""16"" align=""center""><td width=""60""> </td><td width=""40"">"&Lang_Visitors&"</td><td width=""35"">"&Lang_Percent&"</td></tr>" tClient = Request("C") if tClient="" then tClient=0 tClient=clng(tClient) tDay = Request("D") select case tDay case "T" tTitle = Site_Name & "-" & Lang_Me & "-" & Lang_Item_Client(tClient) & "(" & Lang_Today & ")" tMainName = Lang_Item_Client(tClient) & "(" & Lang_Today & ")" tSql = "select C_Content,C_Today from Client where site_id=" & SiteID & " and C_Type="&tClient&" and C_Today<>0 order by C_Today desc,C_Content" tTsql = "select count(*) from Client where site_id=" & SiteID & " and C_Type=" & tClient & " and C_Today<>0" case "Y" tTitle = Site_Name & "-" & Lang_Me & "-" & Lang_Item_Client(tClient) & "(" & Lang_Yesterday & ")" tMainName = Lang_Item_Client(tClient) & "(" & Lang_Yesterday & ")" tSql = "select C_Content,C_Yesterday from Client where site_id=" & SiteID & " and C_Type="&tClient&" and C_Yesterday<>0 order by C_Yesterday desc,C_Content" tTsql = "select count(*) from Client where site_id=" & SiteID & " and C_Type=" & tClient & " and C_Yesterday<>0" case else tTitle = Site_Name & "-" & Lang_Me & "-" & Lang_Item_Client(tClient) tMainName = Lang_Item_Client(tClient) tSql = "select C_Content,C_Total from Client where site_id=" & SiteID & " and C_Type="&tClient&" order by C_Total desc,C_Content" tTsql = "select count(*) from Client where site_id=" & SiteID & " and C_Type=" & tClient end select set rs=conn.execute(tSql) set tmprs=conn.execute(ttsql) set ajgra=new ajgraph ajgra.reArr tmprs(0)-1,6 i=0 do while not rs.eof ajgra.ArrData(i,0)=cClient(rs(0),tClient) ajgra.ArrData(i,2)=rs(1) i=i+1 rs.movenext loop ajgra.Exec ajgra.TabHeader = tTabTop ajgra.TabRow = "<tr height=""16"" align=""right""><td align=""left""> $0</td><td>$2 </td><td>$3% </td></tr>" Response.Write replace(Style_Header,"$Title",tTitle) Response.Write Style_Top if tTips <> "" then Response.Write replace(Style_Tips,"$Tips",tTips) Response.Write replace(Style_MainTop,"$MainName",tMainName) Response.Write "<table align=""center""><tr><td>" & ajgra.TabGra(3) & "</td><td>" & ajgra.Gra("i") & "</td></tr></table>" Response.Write Style_MainBottom Response.Write Style_Bottom %>